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16-Sep-1984 01:36:47 AX-11 Bliss-3 
12-80-1382 93:28:65 LIBRTL.SRCIST 
MODULE STRSDUPL_CHAR ( ! Duplicate a character in a string 
IDENT = 1-010" ! File: STRDUPLCH.B32 Edit: DG1010 


) =z 
BEGIN 


1 
lnunenaneeeneenennenerennentenerenternrertertertrnntnetnnennetnenenetenenetts 
ie 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


® 
5 
* 
® 
: ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
*® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. ® 
® 
w 
® 
* 
® 
® 


!t DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


'@ 
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BIL 
IS NOT SUPPLIED BY DIGITAL. 
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lee 
! FACILITY: String support Library 
i ABSTRACT: 


This routine fills a serves with an input number (defaults to 
1) of an input character (defaults to space). 


! 

1 

' 

i 

1 

' 

' 

: ENVIRONMENT: User mode, AST level or not or mixed 
AUTHOR: R. Will, CREATION DATE: 13-Mar-79 

: MODIFIED BY: 

i R. Will, 13-Mar-79: VERSION 01 

: 1 = Origi 

' 
t 
1 
1 
1 
! 
' 


1- - Origina 
1- 4 - Use STRSK_FILL_CHAR. JBS 15-APR-1979 
1- - String cleanup. Change name to STR$. RW 8-Nov-79 
1-004 = Don't use the hes ng Orerlock macros from JSB entry 
petots. JBS 15-NOV-197 
! 1-009 - String speedup. RW 7-Jan-1980 
1-006 - Enhance to accomodate additional classes of destination 


descriptors by ¥e ng SSTRSGET_LEN_ADDR to qutroct Length 
and address of Ist data byte Tndicated by descriptor. 
Remoye string interlocking code. 

RKR ~APR-1981 
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7 = Spee 
8 - Use 


PAGE> 
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1BSe0-1986 4:36:47 YANeTT 
ode. RKR 7-0CT-1981. 
] nA FATAL rather that SSTRSCHECK_STATUS. 


i 4-009 - Nad support iets class $O string descriptor. 3-0¢t-1983 
1-010 - Change class SO string descripto DG 5S. 


r to SB. -Feb-1984 


BERETS TROUPLEN. 832; 31 
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roid ome e-8eb71882 93:28:35 «Han TO SRe Ss FRouei on’ o$2.1 (2) 


67 $6 : 
; SWITCHES: 
0 
71 SWITCHES ADORESS ING MODE 
4 EXTERNAL = GENERAL, NONEXTERNAL = WORD RELATIVE); 
74 ' 
LINKAGES: 
REQUIRE "RTLIN:STRLNK'; ! Use require file with string Linkage 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
STRSDUPL_CHA 
STRSDUPL ~CHARRB : STRSJSB_DUPL_CH; 


Fill a eseing with a character 
JSB entry point 


INCLUDE FILES: 


OMEN $9 ODN MEU NAU SW OO 


REQUIRE "RTLIN:RTLPSECT’; 
REQUIRE 'RTLIN:STRMACROS'; 
LIBRARY ‘RTLSTARLE'; 


Use to declare PSECTs 
Use string macros to code 


STARLET Library for macros 
and symbols 


WIAIRIPIPIPIPIPIPINININININININMOO 
SNS NIN SNE FPS AAA ONAN NNN 


i MACROS : NONE 


: EQUATED SYMBOLS: 


LITERAL 
DEFAULT_LENGTH = 1; ! Default Length of string produced 


PSECT DECLARATIONS 
DECLARE_PSECTS (STR); 


t 

OWN STORAGE: 
NONE 
' 
! 


1 
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1 
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1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
' ! EXTERNAL REFERENCES: 
1 

1 
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onto, ROUTINE 
LIBSSTOP; ! signal errors 


7 
esgtgersom IESE QUR66E | UMBLOHUSSTbSUR eM a 
> 124 1316 1 
; i 3 i i i ogg TLUSTRE A ! illegal string class 
31 § 1319 1 STR “NEGSTRLEN, i negetive string Length 
% 1 ; 1 STRS_NORMAL, ' normal successful completion 
3 } 1 1 STRS_TRU ! truncation occurre 
: 1 1322 1 STRS_STRTOOLON; i string too long, >65535 


H 7 
10 1eo$ep-198e teiabs05 — Etat. °SaeSstRourc on 682; 1 
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GLOBAL ROUTINE STRSDUPL_CHAR ( Create a string of a char 


wr 


DEST_DESC ! Pointer to dest str desc 
5 INPUT_LENGTH, i Number of characters 
INPUT_CHAR ! Character to duplicate 


'o¢ 


FUNCTIONAL DESCRIPTION: 


This routine writes LENGTH characters of — into the strin 
pointer to by DEST_DESC. If the destination is a fixed length 
string, and LENGTH is greater than the length of the str ngs 

s 


sength then LENGTH CHARs are copied and the destination is 

a 

Otter execution of this routine the destination will have a 
Length of LENGTH. 

If the destination has varying string semantics and the LENGTH 


4 

4 

4 exceeds MAXSTRLEN, STRS_TRU is returned. 

4 The call entry oint is implemented by 

r JSBing to the JSB entry point. 

r FORMAL PARAMETERS: 

4 DEST _DESC.wt.dx pointer to destination string descrircor 
5 INPUT_LENGTH.rl.r number of characters to duplicate 
2 INPUT_CHAR.rbu.r ASCII character to duplicate 

: IMPLICIT INPUTS: 

: NONE 

: IMPLICIT OUTPUTS: 

5 NONE 


COMPLETION CODES: 

same as STRSDUPL_CHARR8 
SIDE EFFECTS: 

same as STRSDUPL_CHARR8 
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4 BEGIN 

7 BUILTIN 

ne NULLPARAMETER; ! check for optional args 
7 LOCAL 

7 CHAR : BYTE, ' character to use 
, LENGTH; ! Length to use 
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Routine Base: 


; Routine Size: 


A DEST_DESC : REF SSTRSDESCRIPTOR; 
IF NULLPARAMETER (3) 

CHAR = STRSK_FILL_CHAR 

CHAR = ..INPUT_CHAR; 
IF NULLPARAMETER (2) 

LENGTH = DEFAULT_LENGTH 

LENGTH = ..INPUT_LENGTH; 


oc 


OC - 


-STRSCODE + 0000 


! if character is not input 
' use the default character 


else use the input character 


if length is not input 

! use the default 

! else use the input value 
RETURN STRSDUPL_CHARRS (DEST_DESC (0,0,0,0], .LENGTH, .CHAR); 
'End of STRSDUPL_CHAR 
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3 oS 133 } GLOBAL ROUTINE STRSDUPL_CHARRB ( Create a string of a char : 
; 210 1400 1 DEST _DESC ! Pointer to dest str desc : 
; ell 1401 1 INPUT_LENGTH, i Number of characters ; 
; \¢ 1? § ! INPUT_ CHAR ! Character to duplicate ; 
5 214 1404 1 ) : STRSJSB_DUPL_CH = ; 
HEU da : 
; 1 1407 1 | FUNCTIONAL DESCRIPTION: ; 
> 219 1409 1} This routine writes aig SPorecters of ae into the Spring : 
: 0 1410 1! pointer to by DEST_DESC. If the destination is a fixed beng h : 
: 1 1411 1! string, and LENGTH is greater than the length of the string ; 
: 88 Mig 1 i only as many CHARS as will fit are copied. If destination js : 
; 1415 1! fixed length and LENGTH is less than the destination string . 
; & 14144 1! length then LENGTH CHARs are copied and the destination is : 
3 5 1415 1! padded with blanks. If the destination is a dynamic string, : 
; 6 1213 1} after execution of this routine the destination will have a : 
; sf 1417 1! Length of LENGTH. : 
: 8 1418 1! If the destination has very ‘oe string semantics and the LENGTH : 
3 9 pe : } exceeds MAXSTRLEN, STRS_TRU is returned. ° 
: 231 Wer i FORMAL PARAMETERS: ; 
: : 14 : 1: DEST_DESC.wt.dx pointer to destination string descriptor : 
3 1424 1! INPUT_LENGTH.rl.v value of no. of characters to duplicate ‘ 
; 5 eg 5 : : INPUT_CHAR.rbu.v value of ASCII character to duplicate : 
; 14 ; { IMPLICIT INPUTS: : 
i ee ee : 
: 241 1431 1 § IMPLICIT OUTPUTS: ; 
; 24 14 :? ; 
; <§ 1? g ! NONE : 
; 345 13 ] | COMPLETION CODES: : 
: <3 14 $ 1/ STRS$_NORMAL if successful completion : 
; 248 \o38 7} STRS_NEGSTRLEN if string length is negative : 
; 249 14 1: STRS$_TRU if input length is greater than fixed string : 
; 250 1440 1! Length or length greater than MAXSTRLEN for : 
3 2) 164) i } varying string destination : 
; 38 1448 | | SIDE EFFECTS: ; 
; 255 1445 1 may allocate or deallocate dynamic string space : 
$ 28 1048 1: may signal errors : 
; 25 1447 1! STRS_ILLSTRCLA if not supported string class ‘ 
3 38 1033 ' STRS_INSVIRMEM if can't allocate more dynamic string 3 
; : ace 

: 260 1450 1! STR$_STRTOOLON i string length is > 65535 for Class_D 

: 261 103) 1! STRS_FATINTERR if debug set im STRMACROS and 

3 $6 14 § ' | consistency error 

: 26 1455 1! 

3 264 1454 1 !-- 


TRSDUPL_CHAR ; : AX-11 Bliss-32 V4.0-74 
iO . 240: LIBRTL.SRC STROUPLOH. B82; 


BEGIN 


LOCAL 
OUT_LEN ! Length of destination string 
OUT“ADDR, ! addr of ist byte of 
! destination strin 
RETURN_STATUS; ! keep track of status 


SELLE 


PARAM 


VFN —OOONOu 


MAP 
DEST_DESC : REF SSTRSDESCRIPTOR; 
14 
Check for fatal error. 


If _ INPUT LENGTH GTR 65535 
THEN LIBSSTOP (STRS$_STRTOOLON) ; 


wT 


14 
Initialize return status. 
RETURN_STATUS = STRS_NORMAL ; 


IF _.INPUT_LENGTH LSS 0 
THEN RETURN_STATUS = STRS$_NEGSTRLEN; 


14 
Determine length and address of ist byte of destination string. 
SSTRSGET_LEN_ADDR ( DEST_DESC, OUT_LEN, OUT_ADDR ) ; 
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algorithm differs based on the class of the destination string 
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CARE APES! JER CDSCSB_CLASS] FROM DSC$K_CLASS_Z TO DSCS$K_CLASS_SB OF 


'¢ 


i Classes using fixed-length semantics. 
i PARAAASALLAREALSSALEAL ESE LE SAL ALAA A LS 


-OUT_LEN LEQ .INPUT_LENGTH ! if requested sengen 
! >= string length 


BEGIN 
CHSFILL (.INPUT_CHAR, ! just fill the string 
-OUT_ for entire lengt 
-OUT“ADDA) ; from beginning 7 string 
IF .OUT_LEN LSS .INPUT_LENGTH ! if truncation 
RETURN_STATUS = STRS_TRU; ! return status 
END 
ELSE ! else 
‘4 
i Pad with fill character after filling with requested 
t character for requested length. 
CHSFILL (STRSK PAUL. CHAR 
MAX (O, .INPUT_LENGTH), 
tHSFILE. C INP _CHAR 
MAX ,INbuT LENGTH), 
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16-Sep-1984 01:36:47 AX-11 
12-868=1 382 93:28:65 LIBRTL 
'¢ 
! dynamic destination string 
' PRARALALAALALAELALLE LALA aS | 


COSCSK_CLASS_D) : 
BEGIN 


IF SSTRSNEEDALLOC (MAX (0, .INPUT LENGTH), | if allocation 
(S$STRSDYN_AL_LEN (BEST_DESC))) i needed 


BEGIN ! cannot fill dest directly 


CAL 
ALLOCATE_STATUS ! 98t status from allocate 
TEMP_DESC : SSTRSDESCRIPTOR;! create temp descrip 


If the allocate succeeds then create the string in 
the temp, switch the temp and the destination and 
deallocate the former destination. 

If the allocate fails, then return the fatal error 


: Status. 
IF (ALLOCATE_STATUS = $STRSALLOCATE ( 
- INPUT_LENGTH), ! alloc space to temp 
TEMP_DESC)) 
THE 
BEGIN 
I 


! FILL temp with request for requested length 
! from beginning of string. 
CHSFILL (. INPUT_CHAR 

MAX (O07 .INPUT_LENGTH) 

.TEMP_OESC COSCSA_POINTER]); 


+ 
Switch temp and destination descriptors. 


SSTRSEXCH_DESCS (TEMP_DESC, DEST_DESC); 
+ 
If the deallocate fails, return the error status. 


if (NOT (ALLOCATE_STATUS = 
SSTRSDEALLOCATE (TEMP_DESC))) ! return former 


' string 
he RETURN_STATUS = .ALLOCATE_STATUS; 


ELSE 
RETURN_STATUS = .ALLOCATE_STATUS; 

END 
ELSE ! else directly fill 


' allocate 
! failed 
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! destination string 


BEGIN 
attain (. INPUT_CHAR for th roqusesee char. 
MAX (07 .INPUT_LENGTH), or requested Length 
.OUT_AODR) ; i from start of string 


ate COSCSW_LENGTH] = MAX (0, .INPUT_LENGTH); 


END; 
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14 
' Class_vs Varying string destination 
1 geeeeteeeerekerkeeeeeneereeeeeeeeee 


le 
COSC$K_CLASS_VS]: 
og Ft LENE LEQU .DEST_DESC CDSC$W_MAXSTRLEN] 
RESIN ! fits within MAXSTRLEN 
; Fill up to .INPUT_LENGTH chars into destination. 
CHSFILL Fw i CHAR, 


( 0, .INPUT_LENGTH), 
-OUT_ADDR) ; 
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+ 
Reset CURLEN field to the number of characters copied 


(.DEST_DESC CDSC$A_POINTER])<0,16> = 
MAX ( 0, .INPUT_LENGTHS 


RETURN_STATUS = STRS_NORMAL ; 
END ! fits within MAXSTRLEN 
ELSE 
7 ! doesn't fit within MAXSTRLEN 
; Fill up to MAXSTRLEN chars into destination. 
CHSFILL (.INPUT_CHAR 
MAX 


( 0, .DEST_DESC COSCS$W_MAXSTRLEN]), 
.OUT_ADOR) ; 
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+ 
} Reset CURLEN field to the number of characters copied 


(.DEST_DESC CDSCS$A_POINTER])<0,16> = 
MAX (0, .BEST_DESC COSC$W_MAXSTRLEN]) ; 


RETURN_STATUS = STRS_TRU ; 
END; ! doesn't fit within MAXSTRLEN 
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"ment OUTRANGE] : RETURN_STATUS = STRS_ILLSTRCLA; 
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; 46 1653 SE TRSSIONA, pave, {RETURN STATUS); ! Signal the fatal errors 
: 46 1832 RETURN .RETORN_STATUS; ° 
: 468 1655 END; 'End of STRSDUPL_CHARRS 
.EXTRN STRSANALYZE_SDESC_R1 
-EXTRN STRSSINIT, STRSSV-INIT 
XTRN STRSSALOC SHORT 
SEXTRN STR$$Q SHORT Q, LIBSGET_VM 
“EXTRN STR$_INSVIRMEM, STRSS$MOVQ R1 
-EXTRN LIBSFREE_VM, STRS_FATINTERR 
SE 18 ¢2 00000 STRSDUPL ,CHARRS: ae a 
52 OD 90003 PUSHL 5 F 
58 21 D0 0005 MOVL 1, R8 : 
56 0 DO 00008 MOVL RO, R6 : 
QOOOFFFF 8F D1 0008 cMPL INPUT. LENGTH, #65535 + 1470 
000000006 8F Dd 00014 PUSHL #STR$_STRTOOLON + 1471 
000000006 00 01 FB OOO1A CALLS #1 ; 
08 AE 00000000G 8F DO 00021 1S: MOVL astR -NORMAL , RETURN_STATUS t 1477 
58 D5 00029 TSTL INPUT “LENGTH + 1479 
08 18 00028 BGEO $ : 
08 AE 000000096 8F D0 99 n MOVL § #STRS_NEGSTRLEN, RETURN_STATUS + 1480 
0 03 Ad 91 00035 28: CMPB (0 (DEST_DESC), we + 1484 
0A 1A 00039 BGTRU 3$ : 
57 66 3C 0003B MOVZWL (DEST_DESC), OUT_LEN ; 
04 AE 04 Ab dO 0055 MOVL  4(DEST_DESCS, OUT_ADDR : 
10 11 0004 BRB 4$ : 
50 56 00 00045 3$ MOVL DEST_D ; 
000000006 90 16 0048 JSB OF ASRNALYSE™ RO DESC _R1 : 
57 0 DO 0004€ MOVL RO, R7 : 
04 AE 51 BO 0051 MOVL 1, 4(SP ; 
OF 00 03 A6 BF 00055 4$ CASEB SCSEST.DESCD, #0, #15 : 1489 
0020 0058 002A 00 A 005A 5$ <WORD 7$-5$,= ; 
0020 0020 0020 O2A 0062 7$-5$.- : 
01F9 002A 002A 0020 006A 11$-5$,- : 
002A 0020 0020 0020 0072 63-58. F 
$-5$,- 3 
6$-5$,- ; 
6$-5$.- : 
$-5$,- : 
$-5$,- 3 
a ; 
(33-38, 3 
6$-5$,- 3 
6$-5$,- 3 
iat , 
08 AE 000000006 8F 00 7A 6$: MOVL wSTRS_ ILLSTRCLA, RETURN_STATUS > 1650 
58 , p} ¢ 7$: CMPL T_LEN, INPUT_LENGTH > 1504 
57 6 6E 0 2C 9 MOVCS D. (SP), INPUT_CHAR, OUT_LEN, @OUT_ADDR ; 1509 
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AX-11 BLi fegc3e v4. 
LIBRTL.SRC STADUPL ON. 5 2;1 


*-Oo 


eee 


“tt LEN, INPUT_LENGTH 


al LENGTH, R1 

R1 

fo; ¢ (SP), INPUT_CHAR, R1, @OUT_ADDR 
#0, (SP), #32, R7, (R3) 


46$ 
INPUT_LENGTH, R7 


4(DEST_DESC), R1 


ST_DESC), #240 
ST_DESC), RO 


STRING BLOCK 
sie NG. BLOCK), RO 


~~ AMeme 
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16$ 


ST_DESC), #240 
ST_DESC), RO 
STRING BLOCK 


STRING_BLOCK), RO 
RO 


20$ 
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T_DESC), #240 
T_DESC), RO 


STRING BLOCK 
g (STRING BLOCK), RO 
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18-sep-1 4 01:36:47 Ax-11 8 “‘ $9.1 RS 
+ ls ann 1 ~$00 138% 94:38:82 a gic B } 
: : R$_NORMAL, RETURN. : 
50 000000006 ef D0 136 258: mov. T $.NO ; 
000000FO0 =F i D1 15 Serhu F : 
i cae : 
3 D4 OO14A CLAL TEMP 
+ Of bores acy sitar), R1 ; 
51 FF A? OE 14 26$ NOVAB CR?) 
oy 8 MOVAB STR$$Q_SHORT_QCR1], REMQUE_ADD ; 
33 ‘pipet aaa f i D 278 REMQUE  Neceerieton, TEMP ; 
2 ; La ae te : 
F 11 001 BRB mr 
af HS SSI Sieh, ADEE : 
02 18 0016C BG 
00 6f pe 0179 9$: Ehtts #1 STRSSALOC_swoRT 
eens ae 00 Sa Ae : 
BF te bot ate TATUS, 35$ 
2 a) 5S So1ze 318: Bua Aen, sraus, 3 
oe 3 BS MOVL NPUT_LENGTH, R1 ; 
" 38 1 0 BGEG 398 Xs 
31 BS O01 328: nov R1, TEMP_DESC ; 
a a 1 BO 001 + Rov Rl : 
ce OF 19 33$:  PUSHAB TEMP_DESC+4 
™ a 80 196° sis MOV RD B(SP) 
we ae 019A PUSHAB 8(§P) 
- 05 4 0190 CALLS a2, LIBSGET VM sis ; 
onset a 00006 s eB oi? abe PE TRS TNSVIRAEM” RETURN_STATUS : 
0 0000 SIRS. 
> B0 180 aov 7, TEMP_DESC : 
(Boing: per § TATUS, ALLOCATE_STATUS 
= Rg Se RR ETAE: i : 
- : 1BA BRW 40$ tea 
008s a MOVL NPUT_LENGTH, R1 
" oe * ie - BGEQ z4 - ; 
Be if AbvES RD (SP), INPUT_CHAR, R1, @TEMP_DESC+4 ; 1563 
i ts zs . BF 169 Cas TRSTENP DESC > 1568 
. te BO Boles ROVE seer ee ces  SeTRST ERP ESC+4 ; 
DO OOI1CF MOVL 4 P 
7 oS 3 (8 104 MOVW  2(DEST~DESC). TEMP_DES 
*h RP RER  Bh hee ; 
DO 001D c.f 
on ae : 
a eee a A asm 
ed wane TE 19 mOvt TERP BESC+4, Re - ; 
' 3 Hh PAP ieee #240 : 
OOFO BF 16 AE Bi 001FD CMP _DESC, 
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7-010 ' 65 | eMart sreistapupion 682: aa D 
1A 1A BGTRU 38S ; ; 
51 é p0 OV R2, STRING_BLOCK : ; 
1 FE AT 36 00808 MOVZWL = (STRING_BLOCK), ALLOC_LENGTH : ; 
3 Of A ‘ BICB2 §=#7, R1 : 3 
1 0000000060041 9€E 0021 MOVAB STASSO, SHORT QCR1J, INSQUE_ADDR : ; 
00 81 be ‘ 19 INSQUE (Re), (INSQUE_ADOR) : : 
C 10 BRB 9 : $ 
18 AE OF F 38$:  PUSHAB TEMP_DESC+4 : : 
08 AE 1 AE 3C g MOV ZWL TEMPS DESC, 8(SP) : ; 
08 AE OF PUSHAB 8 (SPY : ; 
000000006 F A CALLS #2 LIBSFREE VM : : 
E 1 BLBS § RETURN STATUS, 39$ : ; 
Q 000000006 BF »D MOVL $ &#STR$_FATINT ERR RETURN_STATUS : ; 
D 39$:  MOVL | RETURR_STATUS, ALLOCATE-STATUS ; : 
48 E ; BLBS § RETURNTSTATUS, : : 
08 AE D 41 40$: MOVL A LOCA CATE_STATUS, RETURN_STATUS + 1581 F 
45 1 43 BRB 4 : 1537 ; 
57 bE 6E - 00 2c 0 47 41$:  MOVCS #0, (SP), INPUT_CHAR, R7, @OUT_ADDR + 1590 ; 
6 80 6 4 MOVW R7, (DEST_DESC) : 1592 ; 
9 11 BRB + 1489 ; 
58 66 10 00 FD 0 ; 42$: CMBZV #0, #16, (DEST_DESC), INPUT_LENGTH + 1603 ; 
57 5 9 025A MOVL INPUT_LENGTH, R7 + 1610 ; 
! 18 0025D BGEQ 43$ : ; 
p4 025F CLRL. sR? : : 
57 6E 6E i 00 2C 00261 438:  MOVCS #0, (SP), INPUT_CHAR, R7, @OUT_ADDR + 1611 ; 
04 86 s) B0 8 8 MOVW 7, a4(DEST_DESC) + 1617 : 
08 AE 000000006 &F 00 9 $¢ MOVL #STRS_NORMAC, RETURN_STATUS : 1619 : 
16 11 4 BRB 4 : 1608 : 
57 66 3¢ 0 2 44$:  MOVZWL (DEST_DESC), R7 : 1630 : 
57 6E 6E - 00 2c f MOvCS #0, (SP), INPUT_CHAR, R7, @OUT_ADDR ; 1631 : 
04 86 eh B0 5 MOVW = R?’ 94 (DEST DESC) + 1637 ; 
08 A 000000006 ar 09 45$: MOVL as irs RETURN, STATUS : 1639 : 
1 0 AE E 46$:  BLBS URR Ss erATU : 1653 : 
04 08 AE 0 9 FD CMPZV Ns SRE TURN. 5 rT) : : 
A 3 BNEQ 4 ; : 
08 AE DD 0029 PUSHL RETURN, SI STATUS : : 
000000006 00 o1 F CALLS P : : 
0 08 AE OD A2 47%:  MOVL ne fukn STAfUs. RO > 1654 : 
E 1¢ c A ADDL2 : 1655 : 
A $B ; : 
; Routine Size: 682 bytes, Routine Base: _STRSCODE + 0033 : 
: 469 1656 1 : 
; 670 1657 1 END ‘End of module 
+ 471 1658 1 
: 472 1659 0 ELUDOM 
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PSECT SUMMARY 
Name Bytes Attributes 
_STRSCODE 733 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(2) 


Library Statistics 


: eocccece Symbols ----- --- Pages Processing 
: File Total Loaded Percent Mapped Time 
; -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 15 0 581 00:00.8 
3 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD. INITIAL .OPTIAIZE) /MOTRACE/LIS#L 1S8:STROUPLCH/0BJ=08J8:STROUPLCH MSRC$:STRDUPLCH/UPDATE=(ENH$: STRDUPLCH 
; pizes 733 code + 0 data bytes 
un Time: 00:11.7 


phen Time: Fo 
Lines/CPU Min: 8507 
ponenee/Peaeas 34128 
ee Used: 211 pages 
Compilation Complete 
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